(ffap-complete-as-file-p): Use minibuffer-completing-file-name.

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 56294cf6d819e0e436ea796a1b35dc36330903d2..2d481a5e46f3650448f3bf4d4f6774ee65db4c52 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1240,9 +1240,7 @@ which may actually result in an url rather than a filename."
   ;; Note: t and non-nil mean somewhat different reasons.
   (if (eq minibuffer-completion-table 'ffap-read-file-or-url-internal)
       (not (ffap-url-p (buffer-string))) ; t
-    (memq minibuffer-completion-table
-         '(read-file-name-internal read-directory-name-internal)) ; list
-    ))
+    (and minibuffer-completing-file-name '(t)))) ;list
 
 (and
  (featurep 'complete)